home *** CD-ROM | disk | FTP | other *** search
/ USGS: National Coal Resou…s & Great Plains Regions / USGS National Coal Resource Assessment 1999 - Northern Rocky Mountains & Great Plains Regions - Disc 2.iso / PROGRAM / EXT32 / NITF.AVX < prev    next >
Encoding:
Text File  |  1998-07-18  |  4.5 KB  |  41 lines
  1. /3.1
  2. (Extension.1
  3.     Name:    "NITF Image Support"
  4.     Dependencies:    "$AVBIN/nitf.dll\n"
  5.     FirstRootClassName:    "Script"
  6.     Roots:    2
  7.     Version:    30
  8.     About:    "Extends ArcView to support NITF images (v3.1)."
  9.     LoadScript:    3
  10.     CanUnloadScript:    4
  11.     UnloadScript:    5
  12.     ExtVersion:    3100
  13. )
  14.  
  15. (Script.2
  16.     Name:    "NITF.ObjectsPresent"
  17.     SourceCode:    "'''''''''''''''''''''''\n' NITF.ObjectsPresent '\n'''''''''''''''''''''''\ntheProject = av.GetProject\nif (theProject = NIL) then\n  return FALSE\nend\n\nfor each e in Clipboard.The\n  if (e.Is(ITheme)) then\n    theImgSrc = e.GetImgSrc\n    theSrcName = theImgSrc.GetSrcName\n    if (ImgCat.IsValidFileName(theSrcName.GetFileName)) then\n      if (theImgSrc.ContainType(ISrc.ReturnTypeFromFileExt(\"ntf\"))) then\n        return TRUE\n      end\n    else\n      if (theImgSrc.ReturnType = ISrc.ReturnTypeFromFileExt(\"ntf\")) then\n 
  18.        return TRUE\n      end\n    end\n  elseif (e.Is(ViewFrame) and e.IsFilled) then\n    for each aTheme in e.GetView.GetThemes\n      if (aTheme.Is(ITheme)) then\n        theImgSrc = aTheme.GetImgSrc\n        theSrcName = theImgSrc.GetSrcName\n        if (ImgCat.IsValidFileName(theSrcName.GetFileName)) then\n          if (theImgSrc.ContainType(ISrc.ReturnTypeFromFileExt(\"ntf\"))) then\n            return TRUE\n          end\n        else\n          if (theImgSrc.ReturnType = ISrc.ReturnTypeFromFileExt(\"ntf\")) then\n  
  19.           return TRUE\n          end\n        end\n      end\n    end\n  elseif (e.Is(PictureFrame) and e.IsFilled and e.IsFilledBy(FileName)) then\n    theFillObj = e.GetFillObject\n    if (ISrc.IsValidFileName(theFillObj)) then\n      theISrc = ISrc.Make(SrcName.Make(theFillObj.AsString))\n      if (theISrc.ReturnType = ISrc.ReturnTypeFromFileExt(\"ntf\")) then\n        return TRUE\n      end\n    end\n  end\nend\ntheDocs = av.GetProject.GetDocs\nfor each aDoc in theDocs\n  if (aDoc.Is(View)) then\n    for each aTheme in aDo
  20. c.GetThemes\n      if (aTheme.Is(ITheme)) then\n        theImgSrc = aTheme.GetImgSrc\n        theSrcName = theImgSrc.GetSrcName\n        if (ImgCat.IsValidFileName(theSrcName.GetFileName)) then\n          if (theImgSrc.ContainType(ISrc.ReturnTypeFromFileExt(\"ntf\"))) then\n            return TRUE\n          end\n        else\n          if (theImgSrc.ReturnType = ISrc.ReturnTypeFromFileExt(\"ntf\")) then\n            return TRUE\n          end\n        end\n      end\n    end\n  elseif (aDoc.Is(Layout)) then\n    for each aGra
  21. phic in aDoc.GetGraphics\n      if (aGraphic.Is(PictureFrame) and aGraphic.IsFilled and aGraphic.IsFilledBy(FileName)) then\n        theFillObj = aGraphic.GetFillObject\n        if (ISrc.IsValidFileName(theFillObj)) then\n          theISrc = ISrc.Make(SrcName.Make(theFillObj.AsString))\n          if (theISrc.ReturnType = ISrc.ReturnTypeFromFileExt(\"ntf\")) then\n            return TRUE\n          end\n        end\n      elseif (aGraphic.Is(ViewFrame) and aGraphic.IsFilled) then\n        for each aTheme in aGraphic.Get
  22. View.GetThemes\n          if (aTheme.Is(ITheme)) then\n            theImgSrc = aTheme.GetImgSrc\n            theSrcName = theImgSrc.GetSrcName\n            if (ImgCat.IsValidFileName(theSrcName.GetFileName)) then\n              if (theImgSrc.ContainType(ISrc.ReturnTypeFromFileExt(\"ntf\"))) then\n                return TRUE\n              end\n            else\n              if (theImgSrc.ReturnType = ISrc.ReturnTypeFromFileExt(\"ntf\")) then\n                return TRUE\n              end\n            end\n          end\n  
  23.       end\n      end\n    end\n  end\nend\n\nreturn FALSE"
  24. )
  25.  
  26. (Script.3
  27.     Name:    "NITF.Load"
  28.     SourceCode:    "''''''''''''''''\n' NITF.Load    '\n''''''''''''''''\n' Add .ntf to the ISrc extension list\nextn_list = ISrc.ReturnExtensions\nextn_list = extn_list.Add(\"ntf\".AsString)\nISrc.SetExtensions(extn_list)\n"
  29. )
  30.  
  31. (Script.4
  32.     Name:    "NITF.CanUnload"
  33.     SourceCode:    "'''''''''''''''''\n'NITF.CanUnload '\n'''''''''''''''''\n' Run script NITF.ObjectsPresent to see if there is any ImgSrc in any View with a .ntf extension.\n' Return result to boolean variable.\nobjectsPresent = av.Run(\"NITF.ObjectsPresent\", NIL)\n\n' If objectsPresent is TRUE the dll should not be unloaded\nreturn objectsPresent.Not\n"
  34. )
  35.  
  36. (Script.5
  37.     Name:    "NITF.Unload"
  38.     SourceCode:    "''''''''''''''''''\n' NITF.Unload    '\n''''''''''''''''''\n' Remove .ntf to the ISrc extension list\nextn_list = ISrc.ReturnExtensions\nntfIndex = extn_list.FindByValue(\"ntf\")\nif (ntfIndex = -1) then \n  return NIL\nend\nextn_list.Remove(ntfIndex)\nISrc.SetExtensions(extn_list)\n"
  39. )
  40.  
  41.